inherited RoomDM: TRoomDM
  OldCreateOrder = True
  inherited SqlControl: TSQLDataSet
    SchemaName = 'sysdba'
    CommandText = 'select CAPACITY, LOCATION, NAME, ROOM_ID  from  ROOM'
  end
  inherited cdsControl: TClientDataSet
    BeforePost = cdsControlBeforePost
    object cdsControlROOM_ID: TIntegerField
      DefaultExpression = '0'
      DisplayLabel = 'Room ID'
      FieldName = 'ROOM_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsControlNAME: TStringField
      DisplayLabel = 'Name'
      FieldName = 'NAME'
      Size = 50
    end
    object cdsControlLOCATION: TStringField
      DisplayLabel = 'Location'
      FieldName = 'LOCATION'
      Size = 50
    end
    object cdsControlCAPACITY: TStringField
      DisplayLabel = 'Capacity'
      FieldName = 'CAPACITY'
      Size = 50
    end
  end
end
